home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / WWW / http / www.wirenet.co.uk / files / Dashboard2.lha / Dashboard2 / AmiTCP / bin / CheckOnline < prev    next >
Text File  |  1998-02-26  |  315b  |  22 lines
  1. /*
  2. $VER: CheckOnline 1.0 (13.4.97)
  3. by Neil Bothwick
  4.  
  5. Checks if AmiTCP or Miami is online
  6. */
  7.  
  8. options results
  9.  
  10. if show(ports,'AMITCP') > 0 then do
  11.     address command 'ifcheck ppp0 >NIL:'
  12.     exit RC
  13.     end
  14.  
  15. if show(ports,'MIAMI.1') > 0 then do
  16.     address 'MIAMI.1' 'ISONLINE'
  17.     exit (~RC * 5)
  18.     end
  19.  
  20. exit 10
  21.  
  22.